home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / SAT 2.3.8 / Demos / Zkrolly demo ƒ / Zkrolly.c < prev    next >
Encoding:
Text File  |  1995-01-17  |  2.8 KB  |  34 lines  |  [TEXT/KAHL]
  1. (WindowPtr)-1L, false, 0);
  2. }
  3.  
  4.  
  5. main ()
  6. {
  7.     SATInitToolbox();
  8.  
  9.     SetupZwind ();
  10.  
  11.     SetRect(&r, 0, 0, 510, 340);
  12.     SATCustomInit(128, 129, &r, Zwind, 0L, false, false, false, true, false);
  13.     InitXprite ();
  14.     InitZprite ();
  15.     ShowWindow(gSAT.wind.port);
  16.     SelectWindow(gSAT.wind.port);
  17.     SATInstallSynch(&Zyncho);
  18.     zp = SATNewSprite(0, 90, 70, &SetupZprite);
  19.     ignoresp = SATNewSprite(0, 120, 100, &SetupXprite);
  20.     ignoresp = SATNewSprite(0, 200, 160, &SetupXprite);
  21.     SATSetPortScreen();
  22.     do
  23.     {
  24.         SATRun(IsOptionPressed());
  25.     } while (! Button ());
  26.  
  27.     //• WARNING! It seems like we mess up the current device somewhere. 
  28.     //• Probably a bug in SAT (where the device setting isn't perfect 
  29.     //• yet). Let's set port and device to something nice and safe!.
  30.     SATSetPortScreen();
  31.     /* Finally, make sure we dispose of the sound channel. */
  32.     SATSoundShutup();
  33. }
  34.